﻿Public Class FrmListados
    Dim acceso As New acceso_a_datos
    Dim ds As New DataSet

    Private Sub FrmListados_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        acceso._tabla = "Cliente"
        Dim listado As New ListadoClientes
        ds.Tables.Add(acceso.leo_tabla)
        listado.SetDataSource(ds)
        Me.crvListados.ReportSource = listado
        Me.crvListados.Show()
        Me.crvListados.RefreshReport()
    End Sub
End Class